3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2014 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
13 if (!defined('_ECRIRE_INC_VERSION')) return;
15 // http://doc.spip.org/@exec_delete_all_dist
16 function exec_delete_all_dist()
18 include_spip('inc/autoriser');
19 if (!autoriser('detruire')) {
20 include_spip('inc/minipres');
23 $res = liste_tables_en_base('delete');
25 include_spip('inc/minipres');
26 spip_log("Erreur base de donnees");
27 echo minipres(_T('info_travaux_titre'), _T('titre_probleme_technique'). "<p><tt>".sql_errno()." ".sql_error()."</tt></p>");
29 include_spip('inc/headers');
30 $res = "\n<ol style='text-align:left'><li>\n" .
31 join("</li>\n<li>", $res) .
33 $admin = charger_fonction('admin', 'inc');
34 $res = $admin('delete_all', _T('titre_page_delete_all'), $res);
36 redirige_url_ecrire('install','');
42 function liste_tables_en_base($name)
44 $res = sql_alltable();
45 $c = "type='checkbox' checked='checked'";
46 foreach ($res as $k => $t) {
47 $res[$k] = "<input $c value='$t' id='$name_$t' name='$name"